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DECUS Program Lib rary Write-up 


DECUS NO. 8-48la 


"MERGE", revised 


This revision of "Merge" incorporates all options of the original pro¬ 
gram, including those formerly available through binary patches. A 
three-page output buffer speeds execution when the high-speed reader 
and punch are used. The error checks made on input tapes are more ex¬ 
tensive and include checksum verification for each tape. 

F u n ction : "Merge" reads any number of binary paper tapes and combines 
their contents into a single binary output tape with a single 
checksum Field pseudo-ops. are correctly copied; Ascii diagnos¬ 
tics enclosed between rubouts are ignored. 

H ardware : PDP-8 series computer with a paper tape reader and punch, 
high-speed or low (TTY). ^ ' 

—4233-4540 for program and locations 

3400-4200 for the storage buffer. These are clear of the lanquaqe 
portion of FOCAL, PAL-III, and EDITOR. y y 


Use: (a) 


(b) 


(c) 

(d) 

(e) 


Notes: 


Load "Merge" with a binary loader. Load starting address = 4400. 
Set (raise) bit 11 of the switch register if you wish output 
on the high-speed punch. 

Load the first binary tape which you are merging (or copying) 
into the proper reader. Turn on reader and punch. Start 
the processor ['Start'; or, 'Clear' followed by 'Continue']. 
Whenever processor halts after a read-in, replace the current 
binary tape with the next tape. Press 'Continue'. 

When all tapes have read in, clear (lower) S.R. bit 0 and press 
Continue one last time. This generates checksum & trailer. 

You can restart for a new job, or for copying a segmented binary, 
by setting bit 0 and pressing 'Continue' once more. No blank 
tape frame is punched between trailer and leader. 

(1) Always load binary tapes on their code 200 leader, not 
on the blanks which precede it. 

(2) 'Continue' in (c) through (e) above means just that, not 
'Start' or 'Clear'. 

Error Halts: An error detected during read-in causes a JMP . to be ex- 

ecuted. The 'Run' light stays on; the computer freezes at one memory 

address. Check the program listing at that address to see what went 
wrong. 

— — ff . s Pupiicator : "Merge" is less convenient for this purpose than the 

DEC or DECUS routines specifically written for duplication. It might 
be of interest where the error checks are desired (e.g., if your 
paper tape reader is acting up) or where its economy of core use is 
attractive (e.g., if you wish to load a duplication program without 
blowing FOCAL). "Merge" will duplicate absolute binary tapes, of 
the sort produced by PAL and MACRO; nothing else. Most DEC software 
falls into this category. 














/REVI SED "MERGE"* 1/73 
*4233 /SUBROUTIMES: 


4233 

0000 

REA DR, 

0 


4234 

7200 


CL A 


4235 

6031 

LO, 

KSF 

/CHECK BOTH READERS 

4236 

5241 


JMP HI 


4237 

6034 


KBS 


4240 

5244 


JMP SAVI T 


4241 

601 1 

HI# 

RSF 


4242 

5235 


JMP LO 


4243 

6012 


RRB 


4244 

3342 

SAVI T, 

DCA SAVRD 


4245 

4257 

LOO PI, 

JMS PINCH 


4246 

5253 


JMP RESTOR 

/1 ST RETURM: MO OUTPUT READ* 

4247 

0077 

K77, 

77 / C-MOP) 

2MD RETURM: FLAG MOT UP 

4250 

4314 


JMS CKBUFR 

/ 3RD RETURM: AFTER A PUMCH 



/RETURNS FROM CKBUFR: 


4251 

7410 


SKP 

/ 1 ST RETURM: MO OUTPUT READY 

4252 

5245 


JMP LOOPI 

/2MB RET: BUFFER FULL, LOOP 

4253 

6032 

RESTOR, 

KCC 

/3RD RETURM 

4254 

6014 


RFC 


4255 

1342 


TAD SAVRD 

/RETRIEVE 

4256 

5633 


JMP I READP 


4257 

0000 

PIN C4» 

0 


4260 

4314 


JMS CKBUFR 

/AMY THI MG TO GO? 

4261 

5657 


JMP I PINCH 

/MOPE, EXIT TO CALL* 1 

4262 

7000 


MOP 

/FULL UP, OR 

4263 

7604 


LAS 

/ PART FULL, GO AHEAD 

4264 

2257 


I SZ PIN CH 

/RET. TO CALL* 2 OR *3 

4265 

7110 


CLL RAR 

/CHECK BIT 11 OF S. R. 

4266 

7630 


SZL CL A 


4267 

5307 


JMP HIPUM 

/’TWAS 1, USER VAMTS H. S. P. 

4270 

6041 


TSF 


4271 

5657 


JMP I PIN CH 

/MO FLAG 

4272 

1737 


TAD I PTR2 

/FLAG UP, GET CHAR. 

4273 

6046 

M 200, 

TL S 


4274 

7600 

CK SIM S, 

7600 


4275 

1737 


TAD I PTR2 


4276 

1274 


TAD M 200 

/ 200 OR MORE? 

4277 

7700 

M 1 00, 

SMA CL A 


4300 

5304 


JMP IMCREM 

/YES, DOM * T ADD TO CKSUM 

4301 

1737 


TAD I PTR2 


4302 

1341 


TAD CK SIM 


4303 

3341 


DC A CK SUM 


4304 

2337 

IMCREM, 

I Si PTR2 

/TO MEXT OUTPUT CHAR. 

4305 

2257 


ISZ PUMCH 


4306 

5657 


JM P I PUM CH 
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/ 


4307 

6021 

41 PUM, 

PSF 


4310 

5657 


JMP 

I PUMC4 

4311 

1737 


TAD 

I PTR2 

4312 

6026 


PL S 


4313 

5274 


JMP 

CK SIM S 

4314 

0000 

CKBUFR, 

0 


4315 

1336 


TAD 

PTR 1 

4316 

7041 


Cl A 


4317 

1337 


TAD 

PTR2 

4320 

7640 


SZ A 

CL A 

4321 

5324 


JMP 

4 } ViF UL 



/ssssss 

3 


4322 

4372 


JMS 

RESET 

4323 

5714 


JMP 

I CKEUFR 



. /ssassss 


4324 

2314 

40WFUL, 

I SZ 

CK BUF R 

4325 

1274 


TAD 

M 200 

4326 

1336 


TAD 

PTR1 

4327 

7700 


SMA 

CL A 

4330 

2314 


I SZ 

CKBUFR 

4331 

5714 


JMP 

I CKBUFR 

4332 

0000 

OUTPUT, 

0 


4333 

3736 


DCA 

I PTR1 

4334 

2336 


I SZ 

PTR1 

4335 

5732 


JMP 

I OUTPUT 

4336 

0000 

PTR1, 

0 


4337 

0000 

PTR2, 

0 


4340 

3400 

K 3400, 

3400 

4341 

0000 

CKSIM, 

0 


4342 

0000 

SAVED, 

0 


4343 

0000 

LEADER, 

0 


4344 

1277 


TAD 

M 100 

4345 

3342 


DCA 

SAVED 

4346 

1274 


TAD 

M 200 

4347 

4332 


JMS 

OUTPUT 

4350 

2342 


I SZ 

SAVED 

4351 

5346 


JMP 

.-3 

4352 

4257 


JMS 

PUMC4 

4353 

5743 


JMF 

■ I LEADER 

4354 

5352 


JMF 

> .-2 

4355 

5352 


JMP .-3 


/OUTPUT CAUG4T UPJ RESET PTRS. 
/RETURN TO CALL*1 


/RETURN! TO CALL*2 OR +3 

/REACHED 4200 YET? 

/YES, RETURN! TO CALL+2 
/MO, RETURM TO CALL♦3 


/BOTTOM OF STOR. BUFFER 


/COUMT 64 FRAMES 
/VHICrl PRIMTS AS 200 


/MOT4IMG LEFT, BUFFER EMPTY 
/FLAG MOT UPJ THY AGAIM 
/PIN CM ED OME; IS T4ERE MORE? 
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4356 

0000 

PUMCKK, 

0 

4357 

1341 


TAD CKSUM 

4360 

7112 


CLL RTR 

4361 

7012 


RTR 

4362 

7012 


RTR 

4363 

0247 


AMD K 77 

4364 

4332 


JMS OUTPUT- 

4365 

1341 


TAD CKSUM 

4366 

0247 


AMD K 77 

4367 

4332 


JMS OUTPUT 

4370 

4343 


JMS LEADER 

4371 

5756 


JMP I PUMCMK 

4372 

0000 

RESET* 

0 

4373 

1340 


TAD K 3400 

4374 

3336 


DC A PTR1 

4375 

1340 


TAD K 3400 

4376 

3337 


DCA PTR2 

4377 

5772 


JMP I RESET 



/**************«**** 



/ 

MAIM PROGRAM: 

4400 

5270 


JMP START 

4401 

0000 

MODE* 

0 

4402 

0000 

FI RST* 

0 

4403 

0000 

SECOMD* 

0 

4404 

0000 

LCMK* 

0 

4405 

0000 

FRAME 1* 

0 

4406 

3201 


DCA MODE 

4407 

4740 


JMS I READ 

4410 

1261 


TAD M376 

441 1 

7750 


SPA SMA CLA 

4412 

5216 


JMP MOMRBT 

4413 

2201 


ISZ MODE 

4414 

7040 


CM A 

4415 

5206 


JMP FRAME1+ 1 

4416 

1201 

MOM BBT* 

TAD MODE 

4417 

7640 


SZA CLA 

4420 

5207 


JMP FRAME1+ 2 

4421 

1732 


TAD I SAVE 

4422 

1227 


TAD MIM 200 

4423 

7440 


SZA 

4424 

2205 


ISZ FRAM El 

4425 

7540 


SMA SZA 

4426 

5231 


JMP FLD 

4427 

7600 

MI M 200, 

CLA 400 

4430 

5605 


JMP I FRAME1 


/1ST 6 BITS OF TOTAL CKSUM 

/LAST 6 

/EMPTY OUTPUT BUFFER 
/ C CKSUM AMD TRAILER CODE) 


START AT *4400 

/TO REAL STARTING ADRS. 

/PURELY LOCAL CHECKSUM 
/SUBROUT1ME FOR ODD FRAMES 

/RUBOUT? 

/MO 

/YES: COM PL EM EM T "MODE" 

/LOOP UMTIL MEXT RUBOUT 
/DATA CMODE=0> OR ASCII <-l>? 

/TEXT BETWM • RBTS»* IGMOhfc 
/RE ihi EVE FRAME 

/MOM-200 RET. TO CALL+ 2 
/> 200 

/<» 200: EXIT 
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4431 

1243 

FLD# 

TAD MIM100 

4432 

7510 

M 27 0# 

SPA 

4433 

5233 


JMF . 

4434 

0240 


AMD K7 

4435 

7640 


SZ A CL A 

4436 

5236 


JMP . 

4437 

5605 


JMP I FR AME1 

4440 

0007 

K7# 

7 

4441 

0070 

K70# 

70 

4442 

0077 

C77# 

77 

4443 

7700 

MI M 100# 

- 100 

4444 

1202 

TRAILR# 

TAD FIRST 

4445 

7106 


CLL R1L 

4446 

7006 


RTL 

4447 

7006 


RTL 

4450 

1203 

' 

TAD SECOMD 

4451 

7041 


CIA 

4452 

1204 


TAD LCHK 

4453 

7440 


S2A 

4454 

5254 


JMP . 

4455 

4731 


JM S I PUN 

4456 

5261 


JMP .+3 

4457 

5255 


JMP .-2 

4460 

5255 


JMP .-3 

4461 

7402 

M 37 6# 

HLT /LOAD M 

/I F MO 
/CL EAR 

4462 

7604 


LAS 

4463 

7710 


SPA CLA 

4464 

5274 


JMP MORE 

4465 

4733 


JM S I PUNCK 

4466 

7602 


CL A HLT 

4467 

5272 

JMP CLEAR 

/******************** 

4470 

6026 

START# 

PL S 

4471 

6046 


TLS 

4472 

3735 

CLEAR# 

DCA I CKPTR 

4473 

47 34 


JM S I LEADR 

4474 

6032 

MORE# 

KCC 

4475 

6014 


RFC 

4476 

4736 


JM S I PRESET 

4477 

4205 


JM S F RAM E1 

4500 

5277 


JMP 1 


/200< CODE< 300: AM ERROR 
/IS LAST OCTAL DIC-IT 0? 

/MO: AM ERFOR (STRAY ASCII?) 


/WE’VE REACHED TRAILER) HOV 
/ IS THE LOCAL CHECKSUM? 


/SKIP IF CKSLMS AGREE 
/BAD READ OR BAD TAPE! 

/ (CHECKSUM IM AC LIGHTS) 
/PUMCH OUTPUT BUFFER 
/ALL PUMCH ED 
/PUNCH MOT READY 
/PUNCHED 1 FRAME) MORE? 

EXT TAPE l PRESS ’COMTIMUE’) 

MORE TAPES ARE TO BE MERGED# 

BIT 0 * PRESS ’COMTIMUE*. 

/MORE TAPES? 

/MO# BIT 0 I S CLEAR 
/Y ES# BI T 0 I S SET 

/WE’RE DOME: DO CKSUM# TRAILER 
/MEVi JOB? PRESS ’COMTIMUE* 

/C MO BLAMK FRAME IS PUNCHED] 


/BUFFER PTRS. TO 3400 


/LEADER? LOOK AGAIM 
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/MO T LEADER. GO OM: 


4501 

3204 

L00P2, 

DCA 

LCrIK 

4502 

1732 


TAD 

I SAVE 

4503 

1232 


TAD 

M 270 

4504 

7710 


SPA 

CL A 

4505 

5312 


JMP 

DATA 

4506 

1732 


TAD 

I SAVE 

4507 

4737 


JMS 

I OUTP 

4510 

4205 


JMS 

FRAME1 

4511 

5244 


JMP 

TRAIL R 

4512 

1732 

DATA, 

TAD 

I SAVE 

4513 

3202 


DCA 

FI RST 

4514 

4740 


JMS 

I READ 

4515 

0242 


AMD 

C77 

4516 

3203 


DCA 

SECOMD 

4517 

4205 


JMS 

FRAME1 

4520 

5244 


JMP 

TRAIL R 

4521 

1202 


TAD 

FI RST 

4522 

4737 


JMS 

I OUTP 

4523 

1203 


TAD 

SECOM D 

4524 

4737 


JMS 

I OUTP 

4525 

1202 


TAD 

FI RST 

4526 

1203 


TAD 

SECOM D 

4527 

1204 


TAD 

LC4K 

4530 

5301 


JMP 

L00P2 

4531 

4257 

PUM, 

PUM CM 

4532 

4342 

SAVE, 

SAVRD 

4533 

4356 

PUM CK, 

PUM CKK 

4534 

4343 

LEA DR, 

LEADER 

4535 

4341 

CKPTR, 

CKSUM 

4536 

4372 

PRESET, 

RESET 

4537 

4332 

0 UTP, 

OUTPUT 

4540 

4233 

READ, 

READ? 


/ FETCH FRAME 1 
/FIELD PS.-OP. MATBE? 

/MO, JUST DATA 

/TES, STORE OP. IM BUFFER 

/GET MEW 1ST FRAME 
/I F CODE 200 

/RETRIEVE FRAME 

/FETCH FRAME 2 
/EVEM FRAME, MUST BE <100 

/ FETCH FRAME 1 OF MEXT WORD 
/CODE 200: EM D OF TAPE 

/BOXT FRAMES IMTO OUTP. BUFFER 

/UPDATE LOCAL CKSUM 

/POIMTERS TO 1ST CORE PAGE 
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/ 3400-4200 USED FOR BUFFER STORAGE 


CKBUFR 

4314 

CKPTR 

4535 

CK SUM 

4341 

CK SIM S 

4274 

CLEAR 

4472 

C77 

4442 

DATA 

4512 

FI RST 

4402 

FLD 

4431 

FRAME1 

4405 

HI 

4241 

HI PIN 

4307 

HOWFUL 

4324 

IMCREM 

4304 

K 3400 

4340 

K7 

4440 

K 70 

4441 

K77 

4247 

LCHK 

4404 

LEADER 

4343 

LEA DR 

4534 

LO 

4235 

LOO PI 

4245 

L00P2 

4501 

MIM100 

4443 

MI VJ 200 

4427 

MO DE 

4401 

MORE 

4474 

Ml 00 

4277 

M200 

4274 

M270 

4432 

M376 

4461 

HO^RBT 

4416 

OUTP 

4537 

OUTPUT 

4332 

PRESET 

4536 

PTR1 

4336 

PTR2 

4337 

PIN 

4531 

PIN CH 

4257 

PINCHK 

4356 

PIN CK 

4533 

READ 

4540 

REA DP 

4233 

RESET 

4372 

RESTOR 

4253 

SAVE 

4532 

SA VI T 

4244 

SAVRD 

4342 

SECOM D 

4403 

START 

4470 

TRAIL R 

4444 
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